home *** CD-ROM | disk | FTP | other *** search
/ SuperView Productivity Suite 2 / SuperView Productivity Suite 2.iso / BONUS / Support / SVII-ProcessPics / SVII-ProcessPics.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-12-01  |  41.3 KB  |  961 lines
  1. /***********************************************************************************************************************************************/
  2. in_txt1 =                      "SVII-ProcessPics.rexx V 2.21 01.12.98 © by Ulrich Falke"
  3. in_txt2 =                      "======================================================="                                                       /*
  4.  
  5. English                         ARexx-Script that processes given pictures of a directory.
  6. (sorry not my native language)  You can convert to different grafikformats, scale, rotate
  7.                                 and more. One setting for different pictures.
  8.  
  9. Deutsch weiter unten            I use for this SViewII V 8.xx © by Andreas Ralph Kleinert (registered),
  10.                                 (Unregistered SView has'nt an ARexx-Port !)
  11.                                 RexxReqTools.library V 1.3 © by Rafael D'Halleweyn and of course
  12.                                 ReqTools.library V 2.9 © by Nico François and Magnus Holmgren.
  13.  
  14.                    ATTENTION: 1.Picturnames ar renamed ! I cut them at the last dot
  15.                                 and add a short-cut for operation and filetype !
  16.  
  17.                        Example: operation = rotate (.ROT) | filetype = PNG (.png)
  18.  
  19.                                 so Pic.iff will be renamed to Pic.ROT.png
  20.                                       ^^^^cut                    ^^^^^^^^add
  21.  
  22.                                 or Pic_001     -> Pic_001.ROT.png and so on.
  23.  
  24.                               2.If the filename is the same, but the ending is a dot and a number,
  25.                                 the number will be add at the end of the new filname.
  26.  
  27.                        Example: operation = rotate (.ROT) | filetype = PNG (.png)
  28.  
  29.                                 so Pic.001 will be renamed to Pic.ROT.png.001      -\
  30.                                       ^^^^cut                    ^^^^^^^^^^^^add     } different name !
  31.                                 and Pic.002 will be renamed to Pic.ROT.png.002 .   -/
  32.                                        ^^^^cut                    ^^^^^^^^^^^^add
  33.                                 
  34.  
  35.                         WRONG : Pic.001_iff -> Pic.ROT.png              -\
  36.                         =======    ^^^^^^^^cut    ^^^^^^^^add             } same name !
  37.                                 Pic.002_iff -> Pic.ROT.png              -/
  38.                                    ^^^^^^^^cut    ^^^^^^^^add
  39.  
  40.                               3.For files with the same name in the destinations directory you will be asked, to overwrite
  41.                                 them or not ! If you "Omit", the next pic will processed. If one of the next pic's has also
  42.                                 an existing name you will be asked again. If you choose "Omit all", only the pic's with names
  43.                                 who din't exist, will be processed, without asking again.
  44.                                 Same meening for the choices "Overwrite" and "All overwrite", the only difference is, that all
  45.                                 pic's with existing names will be overwrite !
  46.                                 If your choice is "Rename", you can give, with a filrequester, a new name or a new dest. dir.
  47.                                 If you give an already existing name, you have a second chance to give a new name. Is this
  48.                                 also an existing name, this pic will be skiped and the next pic will be processed.
  49.  
  50.                               4.If the SV-WindowDriver shows a pic that is bigger than the display, you can scroll with the arrow-keys.
  51.                                 The script waits for a keyboard or mouse-button press (not the arrow-keys)!
  52.                                 For uncontroled processing: use a SV-ScreenDriver (like CGX or AGA) or use the 'blind'-mode for
  53.                                 no picture-showing.
  54.  
  55. ------------------------------------------------------------------------------------------------------------------------------------------
  56.  
  57. Deutsch                         ARexx-Script mit dem ausgewählte Bilder eines Verzeichnisses bearbeitet werden können.
  58.                                 Sie können zu einem anderen Grafikformat umwandeln, skalieren, rotieren
  59.                                 und mehr. Mit einer Vorgabe für verschiedene Bilder.
  60.  
  61.                                 Ich benutze hierfür SViewII V 8.xx © by Andreas Ralph Kleinert (registriert),
  62.                                 (Unregistriertes SView hat keinen ARexx-Port !)
  63.                                 RexxReqTools.library V 1.3 © by Rafael D'Halleweyn und damit auch
  64.                                 ReqTools.library V 2.9 © by Nico François und Magnus Holmgren.
  65.  
  66.                     ACHTUNG : 1.Bildernamen werden umbenannt ! Ich kürtze sie am letzten Punkt
  67.                                 und hänge eine Abkürtzung für den Operator und den Filetype an !
  68.  
  69.                       Beispiel: Operator = rotieren (.ROT) | Filetype = PNG (.png)
  70.  
  71.                                 aus Pic.iff wird Pic.ROT.png
  72.                                        ^^^^cut     ^^^^^^^^add
  73.  
  74.                               2.Falls der Filename gleich ist, aber mit einem Punkt und einer Nummer endet,
  75.                                 wird die Nummer wieder hinten angehangen.
  76.  
  77.                       Beispiel: Operator = rotieren (.ROT) | Filetype = PNG (.png)
  78.  
  79.                                 aus Pic.001 wird Pic.ROT.png.001          -\
  80.                                        ^^^^cut      ^^^^^^^^add             } ungleicher Name !
  81.                                 und aus Pic.002 wird zu Pic.ROT.png.002 . -/
  82.                                            ^^^^cut         ^^^^^^^^add
  83.  
  84.                          ABER : Pic.001_iff -> Pic.ROT.png    -\
  85.                          ======    ^^^^^^^^cut    ^^^^^^^^add   } gleicher Name !
  86.                                 Pic.002_iff -> Pic.ROT.png    -/  ===============
  87.                                    ^^^^^^^^cut    ^^^^^^^^add
  88.  
  89.                               3.Bei Dateien gleichen Namens im Zielverzeichnis werden Sie gefragt, ob sie übersprungen
  90.                                 oder überschrieben werden sollen ! Wird "Auslassen" gewählt, wird das nächste Bild bearbeitet.
  91.                                 Wird bei einem anderen Bild wieder eine Namensgleichheit gefunden, werden Sie erneut gefragt.
  92.                                 Wird "Alle ausl." gewählt, werden nur die Bilder bearbeitet deren Name im Zielverzeichnis
  93.                                 noch nicht existieren, ohne nochmalige Rückfrage.
  94.                                 Gleiches gilt für "Ersetzen" und "Alle ersetzen", nur das hier das nächste bzw.
  95.                                 alle namensgleichen Bilder überschrieben werden !
  96.                                 Wird "Umbenennen" gewählt, kann per Filerequester für diese gleiche Datei ein neuer Name
  97.                                 oder auch ein anderes Zielverzeichnis gewählt bzw. eingegeben werden. Bei erneuter Namens-
  98.                                 gleichheit haben Sie eine zweite Möglichkeit den Namen zu ändern. Klappt das immer noch
  99.                                 nicht d.h. es existiert immer noch eine namensgleiche Datei im Zielverzeichnis, wird die
  100.                                 Datei ausgelassen und mit dem nächsten Bild weitergemacht.
  101.  
  102.                               4.Wird mit dem SV-WindowDriver ein Bild angezeigt, dass grösser als das Fenster ist,
  103.                                 können Sie den Bildausschnitt mit den Pfeil-Tasten bewegen. Das Script wartet auf
  104.                                 einen Tastertur- oder Maustasten klick (nicht die Pfeil-Tasten)!
  105.                                 Für unbeaufsichtigtes bearbeiten benutzen Sie besser einen SV-ScreenDriver (wie CGX oder AGA)
  106.                                 oder wählen den "Blind"-Modus, damit keine Bilder angezeigt werden.
  107.  
  108. ==========================================================================================================================================
  109. */
  110.  
  111. OPTIONS RESULTS
  112. SIGNAL ON ERROR
  113. SIGNAL ON break_c
  114. SIGNAL ON failure
  115. SIGNAL ON halt
  116. SIGNAL ON ioerr
  117. SIGNAL ON syntax
  118.  
  119. SV = 'SYS:SViewII/SViewII'                            /* the path to SViewII, change it to your needs! */
  120.  
  121. SVPrefs = 'execute Start-SVPrefs.script'              /* Script to start SVPrefs, because the Stack */
  122.  
  123. SVIIPORT = 'SViewII.rx'                               /* default SViewII ARexx-Port */
  124.  
  125. ICONS = NO                                            /* YES for icons */
  126.  
  127. SVOBJ.0 = 'PNG (PiNG)'                                /* not your favorits ?    */
  128. SVOBJ.1 = 'JPEG (IJG-JFIF)'                           /* change the SVObjects   */
  129. SVOBJ.2 = 'ILBM CmpByteRun1'                          /* try the names from the */
  130. SVOBJ.3 = 'ILBM uncompressed'                         /* SViewII ListView       */
  131. SVOBJ.4 = 'RGFX XPK-compressed'
  132. SVOBJ.5 = 'TIFF V5.0'
  133. SVOBJ.6 = 'BMP (Win,OS/2)'
  134. SVOBJ.7 = 'GIF 89a'
  135.  
  136. EXT.0 = 'png'                                         /* but change the extent to */
  137. EXT.1 = 'jpg'
  138. EXT.2 = 'iff'                                         /* Example: changes for GIF */
  139. EXT.3 = 'ilbm'                                        /* SVOBJ.7 = 'GIF 89a' */ /* put it in the line after SVOBJ.6 = 'BMP (Win,OS/2)' */
  140. EXT.4 = 'rgfx'                                        /* EXT.7 = 'gif' */       /* put it in the line after EXT.6 = 'bmp' */
  141. EXT.5 = 'tif'                                         /* insert -> _GIF <- in variable 'txt_svob2  =' on place 6 from left */
  142. EXT.6 = 'bmp'
  143. EXT.7 = 'gif'                                         /* 2 lines below */
  144.  
  145. txt_svob2 = '_JPEG|_IFF|I_LBM|_RGFX|_TIFF|_BMP|_GIF|_PNG'
  146.  
  147. SVOP.4 = 'LeftToRight'                                /* same as with the SVObjects */
  148. SVOP.5 = 'Rotate'                                     /* for the SVOperators        */
  149. SVOP.6 = 'Scale50'                                    /* Example: change "SVOP.4 = 'LeftToRight'" to "SVOP.4 = 'Crop'" */
  150. SVOP.7 = 'TopToBottom'                                /* ATTENTION: Nearly every SQ-operator needs 24Bit input ! */
  151.  
  152. TXT.4 = 'L2R'                                         /* this are the short-cuts for */
  153. TXT.5 = 'Rot'                                         /* the Operators               */
  154. TXT.6 = 'Sc50'                                        /* Example: change "TXT.4 = 'L2R'" to "TXT.4 = 'Crop'" */
  155. TXT.7 = 'T2B'                                         /* ATTENTION: Make the correct settings in SView-Prefs ! */
  156.                                                       /* Change the variable 'txt_opt3 =' also ! */
  157. SVDR.2 = 'CyberGraphX ScreenDriver'
  158. /* SVDR.2 = 'AGA ScreenDriver'      */                /* uncomment the screendriver for your grafic-card */
  159. /* SVDR.2 = 'ECS ScreenDriver'      */
  160. /* SVDR.2 = 'OPAL ScreenDriver'     */
  161. /* SVDR.2 = 'PicassoII ScreenDriver'*/
  162. /* SVDR.2 = 'Picasso96 ScreenDriver'*/
  163. /* SVDR.2 = 'Retina Driver'         */
  164. /* SVDR.2 = 'EGS7 ScreenDriver'     */
  165. /* SVDR.2 = 'MERLIN ScreenDriver'   */
  166.  
  167. txt_svdr2 = '_CGX|'                                   /* _AGA _ECS _OPAL _PicII Pic_96 _Retina E_GS7 _MERLIN */
  168.                                                       /* change "txt_svdr1 = '_CGX'" to the shortcut of your grafic-card */
  169.  
  170. screentime = 4                                        /* how long will you see it on a screen? */
  171. windowtime = 2                                        /* with window driver? */
  172.  
  173. /*--------------------------------------------------- don't change anything below this line ! ----------------------------------------------*/
  174. /*----------------------------------------------------- except you know what you are doing -------------------------------------------------*/
  175.  
  176. SVII = 'Run >NIL: 'SV' -INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE'
  177.  
  178. SVOP.0 = 'AnyTo24Bit'         /* do not change */
  179. SVOP.1 = 'OptimizePalette'    /* do not change */     
  180. SVOP.2 = 'Emboss_SQ'          /* do not change */
  181. SVOP.3 = 'ExtractGrayScales'  /* do not change */
  182. SVOP.8 = 'Dither24Bit'        /* do not change */
  183.  
  184. TXT.0 = 'To24Bit'             /* do not change */
  185. TXT.1 = 'OptPal'              /* do not change */                        
  186. TXT.2 = 'Emb'                 /* do not change */
  187. TXT.3 = 'Gray'                /* do not change */
  188. TXT.8 = 'To8Bit'              /* do not change */
  189.  
  190. txt_opt3 = '_OptPal|_Emb|_Gray|_L2R|_Rot|_Sc50|_T2B|To_8Bit|To_24Bit'
  191.  
  192. SVDR.1 = 'AGA/RTG WindowDriver'
  193.  
  194. txt_svdr0 = '_Blind'
  195.  
  196. NL = '0a'x
  197. BL = ''
  198. NR = ''
  199. WS = ''
  200. HG3 = ''
  201.  
  202. IF OPEN(Language,'ENV:Language','R') then do          /* ENV-variable "Language" will be set in a normal Startup-sequence */
  203.     Lang = READLN(Language)                           /* to your language */
  204.         if Lang = 'deutsch' then deutsch = 1
  205.         else english = 1
  206. end
  207.  
  208. if deutsch = 1 then do
  209.     txt_reqtools = 'Die RexxReqTools.library kann nicht geöffnet werden !'
  210.     txt_pick     = 'Bilder zum bearbeiten auswählen'
  211.     txt_nopick   = 'Ich breche das Script ab !'
  212.     txt_ok       = '_Richtig'
  213.     txt_nopick5  = 'Abbruch-Ansage'
  214.     txt_same1    = 'Wollen Sie die Einstellungen, die Sie zuletzt'
  215.     txt_same4a   = 'in ENVARC: gespeichert haben, benutzen ?'
  216.     txt_same4b   = 'in ENV: gespeichert haben, benutzen ?'
  217.     txt_same2    = '_Ja|_Nein'
  218.     txt_same3    = 'Gleiche Einstellungen ?'
  219.     txt_svob1    = 'Bitte den Datei-Type (SV-Object) zum speichern auswählen'
  220.     txt_svob3    = 'wähle SV-Object'
  221.     txt_op1      = 'Wollen Sie die Bilder zusätzlich bearbeiten ?'
  222.     txt_op2      = '_Ja|_Nein'
  223.     txt_op3      = 'Operation ?'
  224.     txt_not      = 'Nichts'
  225.     txt_opt1     = 'Bitte wählen Sie den SV-Operator aus'
  226.     txt_opt2     = 'Optionen können in SVPrefs eingestellt werden.'
  227.     txt_opt4     = 'SV-Operator Auswahl'
  228.     txt_svp1     = 'Möchten Sie die Einstellungen in SVPrefs ändern ?'
  229.     txt_svp2     = 'SVPrefs ändern ?'
  230.     txt_dest1    = 'Wo sollen die bearbeiteten Bilder gespeichert werden ?'
  231.     txt_dest2    = '_Gleiches Verz.|_Anderes Verz.'
  232.     txt_dest3    = 'Verzeichnisauswahl'
  233.     txt_dest4    = 'Speicher-Pfad Auswahl'
  234.     txt_svdr1    = '_Fenster|'
  235.     txt_svdr3    = '_Zuletzt ben.|'
  236.     txt_svdr4    = '_SV-Prefs ben.|'
  237.     txt_svdr5    = 'Welchen SV-Bildschirmtreiber wollen Sie benutzen ?'
  238.     txt_scrmo    = 'Bildschirm-Modus Auswahl'
  239.     txt_nomo1    = 'Sie haben keinen Bildschirm-Modus ausgewählt !'
  240.     txt_nomo2    = 'Ich versuche es mit dem besten Modus !'
  241.     txt_nomo3    = 'keinen Bildschirm-Modus'
  242.     txt_best     = 'Bester Modus'
  243.     txt_sure1    = 'Sie wollen folgende Operationen auf Ihre '
  244.     txt_Sure1a   = ' Bilder:'
  245.     txt_sure1b   = 'anwenden.'
  246.     txt_sure2    = '1. Datei-Type Umwandlung zu '
  247.     txt_sure3    = ' aller Bilder.'
  248.     txt_sure4    = '2. Operation '
  249.     txt_sure5    = ' mit allen Bildern.'
  250.     txt_sure6    = '3. Anzeigen mit dem '
  251.     txt_sure7    = ' auf'
  252.     txt_sure8    = '   dem '
  253.     txt_sure9    = ' Bildschirm.'
  254.     txt_sure10   = '4. Speichern im Verzeichnis '
  255.     txt_sure11   = '_Ja richtig !|_NEIN AUFHÖREN !'
  256.     txt_sure12   = 'Sind Sie sicher ?'
  257.     txt_chancel  = 'Sie haben CTRL-c gedrückt !'
  258.     txt_chancela = 'Sie haben AUFHÖREN gewählt !'
  259.     txt_chancelb = 'Sie haben keine Bilder zum bearbeiten ausgewählt !'
  260.     txt_chancelc = 'Sie haben keinen Speicher-Pfad ausgewählt !'
  261.     txt_over1a   = 'Eine Datei mit dem Namen: '
  262.     txt_over1b   = ' existiert schon !'
  263.     txt_over2    = 'Soll ich sie ersetzen ?'
  264.     txt_over3    = '_Ersetzen|Alle e_rsetzen|_Umbenennen|A_lle ausl.|_Auslassen'
  265.     txt_over4    = 'Name ist gleich !'
  266.     txt_over5b   = ' existiert immer noch !'
  267.     txt_over6    = 'Was soll ich jetzt tun ?'
  268.     txt_over7    = '_Ersetzen|_Umbenennen|_Auslassen'
  269.     txt_over8    = 'Name ist immer noch gleich !'
  270.     txt_info1    = 'Benutzer Information :'
  271.     txt_info2    = ' Bilder sind erfolgreich bearbeitet worden.'
  272.     txt_info2a   = 'Wollen Sie die benutzten Einstellungen speichern,'
  273.     txt_info2b   = 'weitere Bilder bearbeiten oder beenden ?'
  274.     txt_info3    = '_Speichern|_Benutzen|_Weitere Bilder|_Tschüss'
  275.     txt_info4    = 'Bis bald'
  276.     txt_error1   = '+++ FEHLER +++'
  277.     txt_error2   = 'Nr.: '
  278.     txt_error3   = 'FEHLER-Anzeige'
  279.     txt_error4   = 'Bitte eine E-Mail an : _UFalke@t-online.de senden'
  280.     in_txt3      = 'Bitte warten ich arbeite !'
  281.     in_txt4      = 'Bild Nr.: '
  282.     in_txt5      = ' ist fertig. '
  283.     in_txt5a     = ' von '
  284.     in_txt6      = ' Bilder werden noch bearbeitet.'
  285.     in_txt6b     = ' Bilder: fertig !'
  286.     in_txt7      = ' existiert ! Bild wird übersprungen ! '
  287.     in_txt8      = ' existiert ! Bild wird überschrieben ! '
  288.     ren_txt1     = 'Bitte den Dateinamen ändern'
  289.     ren_txt2     = 'Anderen Namen für: '
  290.     ren_txt3     = 'Umbenennen'
  291.     renfail_txt1 = 'Sie haben mir zweimal einen existierenden Dateinamen vorgegeben !'
  292.     renfail_txt2 = 'Ich überspringe dieses Bild. Versuchen Sie es ein Anderes mal !'
  293.     ti_txt1      = 'Für dieses Bild benötigte Zeit: '
  294.     ti_txt2      = ' sek. '
  295.     ti_txt3      = 'Das sind: '
  296.     ti_txt4      = ' sek/Bild. '
  297.     ti_txt5      = 'Fertig ca.: '
  298. end
  299.  
  300. if english = 1 then do                                               /* not your language ? translate it if you want. */
  301.     txt_reqtools = 'Could''nt open the RexxReqTools.library !'       /* I only know german and english !              */
  302.     txt_pick     = 'pick pictures for processing'
  303.     txt_nopick   = 'I''m stop working !'
  304.     txt_ok       = '_OK'
  305.     txt_nopick5  = 'Chancel-Requester'
  306.     txt_same1    = 'Do you want to use the settings,'
  307.     txt_same4a   = 'who you saved last, to ENVARC: ?'
  308.     txt_same4b   = 'who you saved last, to ENV: ?'
  309.     txt_same2    = '_Yes|_No'
  310.     txt_same3    = 'same Settings ?'
  311.     txt_svob1    = 'Please select the Saver-Type (SV-Object)'
  312.     txt_svob3    = 'select SV-Object'
  313.     txt_op1      = 'Would you like to make an operation to your pictures ?'
  314.     txt_op2      = '_Yes|_No'
  315.     txt_op3      = 'operations ?'
  316.     txt_not      = 'Nothing'
  317.     txt_opt1     = 'Please select the SV-Operator'
  318.     txt_opt2     = 'You may change the settings in SV-Prefs. '
  319.     txt_opt4     = 'select SV-Operator'
  320.     txt_svp1     = 'Do you like to change the SV-Prefs settings ?'
  321.     txt_svp2     = 'Change SV-Prefs ?'
  322.     txt_dest1    = 'Where do you want to save the processed pictures ?'
  323.     txt_dest2    = '_same dir|_other dir'
  324.     txt_dest3    = 'select Save-Directory'
  325.     txt_dest4    = 'select Save-Path'
  326.     txt_svdr1    = '_Window|'
  327.     txt_svdr3    = '_Last used|'
  328.     txt_svdr4    = 'use _SV-Prefs|'
  329.     txt_svdr5    = 'Which SV-ScreenDriver do you like to use ?'
  330.     txt_scrmo    = 'Please select the ScreenMode for your SV-ScreenDriver'
  331.     txt_nomo1    = 'You did''nt select a ScreenMode'
  332.     txt_nomo2    = 'I use the BestMode !'
  333.     txt_nomo3    = 'No ScreenMode'
  334.     txt_best     = 'BestMode'
  335.     txt_sure1    = 'You want to make this operations to your '
  336.     txt_sure1a   = ' pictures :'
  337.     txt_sure1b   = ' '
  338.     txt_sure2    = '1. Convert to '
  339.     txt_sure3    = ' all pictures.'
  340.     txt_sure4    = '2. Operator '
  341.     txt_sure5    = ' to all pictures.'
  342.     txt_sure6    = '3. Show them with the '
  343.     txt_sure7    = ' on'
  344.     txt_sure8    = '   the '
  345.     txt_sure9    = ' screen.'
  346.     txt_sure10   = '4. Save them in directory '
  347.     txt_sure11   = '_YES do it !|_NO do NOTHING !'
  348.     txt_sure12   = 'Are you sure ?'
  349.     txt_chancel  = 'You type CTRL-c !'
  350.     txt_chancela = 'You click do NOTHING !'
  351.     txt_chancelb = 'You did''nt select a picture to process !'
  352.     txt_chancelc = 'You did''nt select a Save-Directory !'
  353.     txt_over1a   = 'A File with the name: '
  354.     txt_over1b   = ' exists !'
  355.     txt_over2    = 'Shall I overwrite it ?'
  356.     txt_over3    = 'O_verwrite|All over_write|_Rename|_All omit|_Omit'
  357.     txt_over4    = 'Same name !'
  358.     txt_over5b   = ' already exists !'
  359.     txt_over6    = 'What shall I do now ?'
  360.     txt_over7    = 'O_verwrite|_Rename|_Omit'
  361.     txt_over8    = 'Already same name !'
  362.     txt_info1    = 'User information :'
  363.     txt_info2    = ' pictures were processed successfully.'
  364.     txt_info2a   = 'Do you wont to save the used settings,'
  365.     txt_info2b   = 'process further pictures or quit ?'
  366.     txt_info3    = '_Save|_Use|_Further Pics|_Bye Bye'
  367.     txt_info4    = 'So long'
  368.     txt_error1   = '+++ ERROR +++'
  369.     txt_error2   = 'No.: '
  370.     txt_error3   = 'ERROR-Requester'
  371.     txt_error4   = 'Please send an e-mail to : _UFalke@t-online.de'
  372.     in_txt3      = 'Please wait I''m working !'
  373.     in_txt4      = 'Picture No.: '
  374.     in_txt5      = ' is ready. '
  375.     in_txt5a     = ' of '
  376.     in_txt6      = ' Pictures are to processed.'
  377.     in_txt6b     = ' Pictures: ready !'
  378.     in_txt7      = ' exists. I skip this pic ! '
  379.     in_txt8      = ' exists ! I overwrite this pic ! '
  380.     ren_txt1     = 'Please change the filename'
  381.     ren_txt2     = 'Other name for: '
  382.     ren_txt3     = 'Rename'
  383.     renfail_txt1 = 'You give me twice an existing filename !'
  384.     renfail_txt2 = 'I skip this pic. Try it next time again.'
  385.     ti_txt1      = 'For this picture used Time: '
  386.     ti_txt2      = ' Sec. '
  387.     ti_txt3      = 'That are: '
  388.     ti_txt4      = ' sec/pic . '
  389.     ti_txt5      = 'Ready about: '
  390. end
  391.  
  392. /* trace i */
  393.  
  394. say BL||in_txt1||NL||in_txt2||NR
  395.  
  396. IF ~SHOW('L','rexxreqtools.library') THEN CALL ADDLIB('rexxreqtools.library',0,-30)
  397. IF ~SHOW('L','rexxreqtools.library') THEN DO
  398.     SAY txt_reqtools
  399.     Call ERROR
  400. END
  401.  
  402. IF ~SHOW('P',SVIIPORT) THEN DO
  403.    address command
  404.    SVII
  405.    'WaitForPort' SVIIPORT
  406.    txt_same4 = txt_same4a
  407.    END
  408. ELSE txt_same4 = txt_same4b
  409.  
  410. ADDRESS VALUE SVIIPORT
  411.  
  412. 'PUT_ICONS='||ICONS
  413.  
  414. Main:
  415.  
  416. SAME = 0
  417. OVER = 0
  418. timer = 0
  419. ti1 = 0
  420. ti2 = 0
  421. ti3 = 0
  422. nosave = 0
  423. SA = 0
  424. rename = 0
  425. Counter = 0
  426. in_txt = in_txt6
  427.  
  428. IF OPEN('Prefs','ENV:SV-ProcessPics.prefs','r') THEN DO    /* read Prefsfile */
  429.     Dir = READLN('Prefs')
  430.     SaveDir = READLN('Prefs')
  431.     SO = READLN('Prefs')
  432.     SVObject = READLN('Prefs')
  433.     txt = READLN('Prefs')
  434.     ext = READLN('Prefs')
  435.     TO24BIT = READLN('Prefs')
  436.     TO8BIT = READLN('Prefs')
  437.     TO8BITSAVE = READLN('Prefs')
  438.     TOGRAY = READLN('Prefs')
  439.     SVO = READLN('Prefs')
  440.     SVOperator = READLN('Prefs')
  441.     SAOP = READLN('Prefs')
  442.     SVDR = READLN('Prefs')
  443.     ScreenMode = READLN('Prefs')
  444.     win = READLN('Prefs')
  445.     CLOSE('Prefs')
  446. END
  447. ELSE do                                                  /* no Prefsfile */
  448.     Dir = 'SYS:'
  449.     SaveDir = 'SYS:'
  450.     SO = 0
  451.     SVObject = SVOBJ.0
  452.     txt = TXT.0
  453.     ext = EXT.0
  454.     TO24BIT = 0
  455.     TO8BIT = 0
  456.     TO8BITSAVE = 0
  457.     TOGRAY = 0
  458.     SVO = 0
  459.     SAOP = 0
  460.     SVDR = 'AGA/RTG WindowDriver'
  461.     ScreenMode = 'Workbench'
  462.     win = 1
  463. END
  464.  
  465. IF ~(EXISTS(Dir)) THEN DO
  466.     call rtfreefilebuffer()
  467.     Dir = 'SYS:'
  468. END
  469.  
  470. call rtfilerequest(Dir,,txt_pick,,,                      /* ReqTools-Filerequester - get a list of all files to be processed */
  471.                    'rtfi_flags = freqf_multiselect',
  472.                    'rtfi_buffer = true',
  473.                    'rt_reqpos = reqpos_centerscr',,
  474.                    files)
  475.  
  476. Counter = VALUE(files.count)
  477.  
  478. if files = 0 then do                                 /* you chancel */
  479.     txt_chancel = txt_chancelb
  480.     call break_c
  481. END
  482.  
  483. IF files = 1 THEN DO
  484.     parse var files.1 LW ':' DN
  485.     Pfad = ''
  486.     do forever
  487.        parse var DN Pfad1 '/' DN
  488.        if DN = ''
  489.           then break
  490.           Pfad = Pfad||Pfad1'/'
  491.     end
  492.     Dir = LW||':'||Pfad
  493. END
  494.  
  495. call text
  496.  
  497. IF EXISTS('ENV:SV-ProcessPics.prefs') THEN SAME = rtezrequest(txt_same1||NL||,       /* Same Settings as last used ? */
  498.                                                     txt_same4||NL||,
  499.                                                     ' '||NL||,
  500.                                                     txt_sure2||SVObject||txt_sure3||NL||,
  501.                                                     txt_sure4||SVOperator||txt_sure5||NL||,
  502.                                                     txt_sure6||SVDR||txt_sure7||NL||,
  503.                                                     txt_sure8 ||ScreenMode||txt_sure9||NL||,
  504.                                                     txt_sure10||SaveDir||'.',,
  505.                                                     txt_same2,,
  506.                                                     txt_same3,,
  507.                                                     'rtez_defaultresponse = 1',
  508.                                                     'rt_reqpos = reqpos_centerscr')
  509. IF SAME = 0 THEN DO
  510.     TOGRAY = 0
  511.     TO8BIT = 0
  512.     TO8BITSAVE = 0
  513.     TO24BIT = 0
  514.     txt = ''
  515.     ext = ''
  516.     SO = rtezrequest(txt_svob1,,                      /* SVObject - destination filetype */
  517.                  txt_svob2,,
  518.                  in_txt1,,
  519.                  'rtez_flags = ezreqf_centertext',
  520.                  'rtez_defaultresponse ='||SO,
  521.                  'rt_reqpos = reqpos_centerscr')
  522.  
  523.     SVObject = VALUE('SVOBJ.'||SO)
  524.     ext = VALUE('EXT.'||SO)                           /* extent for the filetype */
  525.     if SO = 7 then TO8BITSAVE = 1                     /* for gif */
  526.  
  527.     SAOP = rtezrequest(txt_op1,,                      /* Operation ? */
  528.                    txt_op2,,
  529.                    txt_op3,,
  530.                    'rtez_flags = ezreqf_centertext',
  531.                    'rtez_defaultresponse ='||SAOP,
  532.                    'rt_reqpos = reqpos_centerscr')
  533.  
  534.     if SAOP = 0 THEN SVOperator = txt_not
  535.  
  536.     if SAOP = 1 THEN DO
  537.              SVO = rtezrequest(txt_opt1||NL||,        /* witch SVOperator */
  538.                                txt_opt2,,
  539.                                txt_opt3,,
  540.                                tx,,
  541.                                'rtez_flags = ezreqf_centertext',
  542.                                'rtez_defaultresponse ='||SVO,
  543.                                'rt_reqpos = reqpos_centerscr')
  544.              SVOperator = VALUE('SVOP.'||SVO)
  545.              txt = VALUE('TXT.'||SVO)||'.'            /* short-cut for operator and add a dot */
  546.              if SVO = 2 THEN DO                       /* for Emboss_SQ */
  547.                  TO24BIT = 1
  548.                  TOGRAY = 1                           /* Emboss to gray looks better and reduces the filesize */
  549.                  txt = txt||TXT.3||'.'
  550.              END
  551.              if SVO = 1 THEN TO8BIT = 1               /* for Opt.Palette */
  552.  
  553.              SVP = rtezrequest(txt_svp1,,             /* you will set prefs in SVPrefs ? */
  554.                                txt_op2,,
  555.                                txt_svp2'Change SV-Prefs ?',,
  556.                                'rtez_flags = ezreqf_centertext',
  557.                                'rtez_defaultresponse = 0',
  558.                                'rt_reqpos = reqpos_centerscr')
  559.              if SVP = 1 then address command SVPrefs
  560.     END
  561.  
  562.     SAD = rtezrequest(txt_dest1,,                     /* destination directory same ? */
  563.                   txt_dest2,,
  564.                   txt_dest3,,
  565.                   'rtez_flags = ezreqf_centertext',
  566.                   'rtez_defaultresponse = 0',
  567.                   'rt_reqpos = reqpos_centerscr')
  568.  
  569.     if SAD = 0 THEN DO
  570.             SaveDir = rtfilerequest(SaveDir,,txt_dest4,,,    /* get dest. dir if not same */
  571.                      'rtfi_flags = freqf_nofiles',
  572.                      'rt_reqpos = reqpos_centerscr')
  573.  
  574.             if SaveDir = '' THEN DO                   /* you chancel dest. dir ! */
  575.                 txt_chancel = txt_chancelc
  576.                 call break_c
  577.             END
  578.     END
  579.  
  580.     if SAD = 1 then do                                /* extract pfad */
  581.                 parse var files.1 LW ':' DN
  582.                 Pfad = ''
  583.                 do forever
  584.                     parse var DN Pfad1 '/' DN
  585.                     if DN = ''
  586.                         then break
  587.                     Pfad = Pfad||Pfad1'/'
  588.                 end
  589.                 SaveDir = LW||':'||Pfad               /* getdir = savedir */
  590.     end
  591.  
  592.     SD = rtezrequest(txt_svdr5,,                      /* witch SVDriver */
  593.                  txt_svdr1||txt_svdr2||txt_svdr3||txt_svdr4||txt_svdr0,,
  594.                  in_txt1,,
  595.                  'rtez_flags = ezreqf_centertext',
  596.                  'rtez_defaultresponse = 1',
  597.                  'rt_reqpos = reqpos_centerscr')
  598.  
  599.     IF (SD = 1)|(SD = 2) THEN DO
  600.         SVDR = VALUE('SVDR.'||SD)
  601.         win = 0
  602.         IF SD = 1 THEN DO
  603.             win = 1
  604.             ScreenMode = 'Workbench'
  605.         END
  606.     END
  607.  
  608.     IF SD = 0 THEN DO
  609.         win = 2
  610.         SVDR = 'Blind Driver'
  611.         ScreenMode = 'Workbench'
  612.     END
  613.  
  614.     if SD = 4 then do
  615.         IF OPEN('PrefsDriver','env:superview-library/LIBRARY.controlpad','R') THEN DO
  616.             PrefsDriver_txt = READLN('PrefsDriver')
  617.             CLOSE('PrefsDriver')
  618.             win = 0
  619.             parse var PrefsDriver_txt def '=' SVPD
  620.             if SVPD = 'AGA.svdriver' then SVDR = 'AGA ScreenDriver'
  621.             if SVPD = 'CyberGraphics.svdriver' then SVDR = 'CyberGraphX ScreenDriver'
  622.             if SVPD = 'ECS.svdriver' then SVDR = 'ECS ScreenDriver'
  623.             if SVPD = 'EGS7.svdriver' then SVDR = 'EGS7 ScreenDriver'
  624.             if SVPD = 'MERLIN.svdriver' then SVDR = 'MERLIN ScreenDriver'
  625.             if SVPD = 'OPAL.svdriver' then SVDR = 'OPAL ScreenDriver'
  626.             if SVPD = 'Picasso96.svdriver' then SVDR = 'Picasso96 ScreenDriver'
  627.             if SVPD = 'PicassoII.svdriver' then SVDR = 'PicassoII ScreenDriver'
  628.             if SVPD = 'Retina.svdriver' then SVDR = 'Retina Driver'
  629.             if SVPD = 'Window.svdriver' then do
  630.                 SVDR = 'AGA/RTG WindowDriver'
  631.                 win = 1
  632.             END
  633.         END
  634.     END
  635.  
  636.     if SD = 3 then win = 1
  637.  
  638.     IF win = 0 THEN DO                                     /* witch screenmode if not window-driver or blind */
  639.                 call rtscreenmoderequest(txt_scrmo,,,
  640.                     'rtsc_flags = screqf_sizegads|screqf_depthgad',
  641.                     'rt_reqpos=reqpos_centerscr',screen)
  642.                 ScreenMode = screen.name
  643.  
  644.                 if screen = '0' then do                    /* you chancel screenmode requester */
  645.                     call rtezrequest(txt_nomo1||NL||,
  646.                                      txt_nomo2,,
  647.                                      txt_ok,,
  648.                                      txt_nomo3,,
  649.                                      'rtez_flags = ezreqf_centertext',
  650.                                      'rt_reqpos = reqpos_centerscr')
  651.                      ScreenMode = txt_best
  652.                 END
  653.     END
  654. END
  655.  
  656. 'SVOPERATOR='||SVOperator
  657. 'SAVE_TYPE='||SVObject
  658. 'SVDRIVER='||SVDR
  659. 'VIEWMODE='||ScreenMode
  660.  
  661. sure = rtezrequest(txt_sure1||Counter||txt_sure1a||NL||,   /* your settings and last chance to leave */
  662.                    files.1||NL||,
  663.                    '                */*'||NL||,
  664.                    files.Counter||NL||,
  665.                    txt_sure1b||NL||NL||,
  666.                    txt_sure2||SVObject||txt_sure3||NL||,
  667.                    txt_sure4||SVOperator||txt_sure5||NL||,
  668.                    txt_sure6||SVDR||txt_sure7||NL||,
  669.                    txt_sure8 ||ScreenMode||txt_sure9||NL||,
  670.                    txt_sure10||SaveDir||'.'||NL||,
  671.                    ' ',,
  672.                    txt_sure11,,
  673.                    tx,,
  674.                    'rtez_defaultresponse = 1',
  675.                    'rt_reqpos = reqpos_centerscr')
  676.  
  677. if sure = 0 then do                                   /* you want to leave ! */
  678.     txt_chancel = txt_chancela
  679.     call break_c
  680. END               
  681.  
  682. say BL||WS||HG3||in_txt3||NR
  683.  
  684. if files = 1 then DO i = 1 to files.count             /* repeat loop until all files have been processed */
  685.             
  686.             TIME('R')
  687.  
  688.             IF ~(EXISTS(files.i)) THEN DO
  689.                 say files.i ||' did not exist anymore'
  690.                 nosave = nosave+1
  691.                 ITERATE i
  692.             END
  693.  
  694.             'LOAD='||files.i                          /* load the picture */
  695.  
  696.             parse var files.i LW ':' DN               /* Construct a new name for the pic and save it  */
  697.             Pfad = ''
  698.             oldname = DN
  699.             ona = 0
  700.             do forever
  701.             parse var DN Pfad1 '/' DN
  702.                 if DN = ''
  703.                     then break
  704.                 Pfad = Pfad||Pfad1'/'
  705.                 ona = ona+1
  706.                 if ona > 0 then oldname = DN
  707.             end
  708.             Pfad = ''
  709.             do forever
  710.             parse var Pfad1 NN '.' Pfad1
  711.                 if Pfad1 = ''
  712.                     then break
  713.                 Pfad = Pfad||NN||'.'
  714.                 oldext = Pfad1
  715.             end
  716.  
  717.             newname = SaveDir||Pfad||txt||ext
  718.             newfile = Pfad||txt||ext
  719.  
  720.             if DATATYPE(oldext,'N') = 1 then do
  721.                 newname = SaveDir||Pfad||txt||ext||'.'||oldext
  722.                 newfile = Pfad||txt||ext||'.'||oldext
  723.             END
  724.  
  725.             IF POS('.',oldname) = 0 THEN DO
  726.                 newname = SaveDir||oldname||'.'||txt||ext
  727.                 newfile = oldname||'.'||txt||ext
  728.             END
  729.  
  730.             ti1 = TIME('E')
  731.  
  732.             IF ((Counter-i) = 0) THEN in_txt = in_txt6b
  733.                                                           /* same file exists ! */
  734.             IF (EXISTS(newname) & OVER = 0) then overwrite = rtezrequest(txt_over1a||newname||txt_over1b||NL||,
  735.                                                  txt_over2,,
  736.                                                  txt_over3,,
  737.                                                  in_txt1,,
  738.                                                  'rtez_defaultresponse = 4',
  739.                                                  'rtez_flags = ezreqf_centertext',
  740.                                                  'rt_reqpos = reqpos_centerscr')
  741.             overwrite = VALUE(overwrite)
  742.  
  743.             IF overwrite = 0 THEN DO                      /* skip */
  744.                 nosave = nosave+1
  745.                 say in_txt4||i||' '||BL||WS||HG3||newname||NR||in_txt7||NL||BL||Counter-i||in_txt5a||Counter||NR||in_txt
  746.                 overwrite = 1
  747.                 ITERATE i
  748.             END
  749.  
  750.             IF (EXISTS(newname) & overwrite = 4) THEN DO  /* skip all */
  751.                 nosave = nosave+1
  752.                 say in_txt4||i||' '||BL||WS||HG3||newname||NR||in_txt7||NL||BL||Counter-i||in_txt5a||Counter||NR||in_txt
  753.                 OVER = 1
  754.                 ITERATE i
  755.             END
  756.  
  757.             IF (EXISTS(newname) & overwrite = 3) THEN DO   /* rename */
  758.                 newname = rtfilerequest(SaveDir,newfile,ren_txt2||newfile,ren_txt3,,
  759.                                         'rt_reqpos = reqpos_centerscr')
  760.                 overwrite = 1
  761.                 rename = 1
  762.             END
  763.  
  764.             IF (EXISTS(newname) & rename = 1) THEN DO
  765.                                                            /* same file exists second times! */
  766.                 IF (EXISTS(newname) & OVER = 0) then
  767.                         overwrite1 = rtezrequest(txt_over1a||newname||txt_over5b||NL||,
  768.                                                  txt_over6,,
  769.                                                  txt_over7,,
  770.                                                  txt_over8,,
  771.                                                  'rtez_defaultresponse = 0',
  772.                                                  'rtez_flags = ezreqf_centertext',
  773.                                                  'rt_reqpos = reqpos_centerscr')
  774.                 overwrite1 = VALUE(overwrite1)
  775.                 rename = 0
  776.  
  777.                 IF overwrite1 = 0 THEN DO                  /* skip */
  778.                     nosave = nosave+1
  779.                     say in_txt4||i||' '||BL||WS||HG3||newname||NR||in_txt7||NL||BL||Counter-i||in_txt5a||Counter||NR||in_txt
  780.                     overwrite = 1
  781.                     ITERATE i
  782.                 END
  783.  
  784.                 IF (EXISTS(newname) & overwrite1 = 2) THEN DO   /* rename */
  785.                     newname = rtfilerequest(SaveDir,,
  786.                                             newfile,,
  787.                                             ren_txt2||newfile,,
  788.                                             ren_txt3,,
  789.                                             'rt_reqpos = reqpos_centerscr')
  790.                 END
  791.  
  792.                 IF (EXISTS(newname) & overwrite1 = 2) then do  /* renaming failed second times, skip this pic */
  793.                     nosave = nosave+1
  794.                     say in_txt4||i||' '||BL||WS||HG3||newname||NR||in_txt7||NL||BL||Counter-i||in_txt5a||Counter||NR||in_txt
  795.                     say BL||WS||renfail_TXT1||NL||renfail_txt2||NR
  796.                     overwrite = 1
  797.                     ITERATE i
  798.                 END
  799.                 
  800.             END
  801.  
  802.             TIME('R')
  803.  
  804.             IF (EXISTS(newname) & overwrite = 2) THEN OVER = 1  /* overwrite all */
  805.  
  806.             IF ~(EXISTS(newname)) THEN SA = 1
  807.  
  808.             'STATUS=T:SVStatus'
  809.             IF OPEN('Stat','T:SVStatus','R') THEN DO
  810.                 Stat_txt = READLN('Stat')
  811.                CLOSE('Stat')
  812.                 parse var Stat_txt st ' ' width 'x' height 'x' depth
  813.                 depth =VALUE(depth)
  814.             END
  815.             IF (depth < 24 & TO24BIT = 1) THEN DO     /* needs the sv-operator 24bit data ? */
  816.                 'SVOPERATOR='||SVOP.0                 /* here used only for Emboss_SQ */
  817.                 'ACTION'
  818.                 'SVOPERATOR='||SVOperator
  819.             END
  820.             IF (depth > 8 & TO8BIT = 1) THEN DO       /* needs the sv-operator 8bit data ? */
  821.                 'SVOPERATOR='||SVOP.8                 /* here used only for opt.Palette */
  822.                 'ACTION'
  823.                 'SVOPERATOR='||SVOperator
  824.             END
  825.  
  826.             if SAOP = 1 THEN 'ACTION'                 /* operation */
  827.  
  828.             IF TO8BITSAVE = 1 THEN DO                 /* needs the sv-object 8bit data ? */
  829.                 'SVOPERATOR='||SVOP.8                 /* here used only for GIF */
  830.                 'ACTION'
  831.                 'SVOPERATOR='||SVOperator
  832.             END
  833.  
  834.             IF TOGRAY = 1 THEN DO                     /* you want always gray ? */
  835.                 'SVOPERATOR='||SVOP.3                 /* here used only for Emboss_SQ */
  836.                 'ACTION'
  837.                 'SVOPERATOR='||SVOperator
  838.             END
  839.  
  840.             'SAVE='||newname                          /* save file */
  841.  
  842.             address command wait 3                    /* wait for the HD */
  843.  
  844.             IF win < 2 THEN DO                        /* if not blind */
  845.                 'SHOW='||newname                      /* just saved file load and display */
  846.                     IF win = 0 THEN address command wait screentime
  847.                     else address command wait windowtime
  848.             END
  849.  
  850.             ti2 = TIME('E')
  851.             ti2 = ti1+ti2
  852.             timer = timer+ti2
  853.             avtime = LEFT((timer/(i-nosave)),5,'0')
  854.             tinow = TIME('S')
  855.             ready = LEFT((tinow+((avtime)*(Counter-i))),5)
  856.             ho = RIGHT(TRUNC(ready/3600),2,'0')
  857.             min = RIGHT(TRUNC((ready-(ho*3600))/60),2,'0')
  858.             sec = RIGHT(TRUNC(ready-(min*60)-(ho*3600)),2,'0')
  859.             if VALUE(ho) > 23 then ho = RIGHT(ho-24),2,'0')
  860.  
  861.             IF SA = 1 then say in_txt4||i||' '||WS||HG3||newname||NR||in_txt5||NL||BL||Counter-i||in_txt5a||Counter||NR||in_txt
  862.                 else say in_txt4||i||' '||BL||WS||HG3||newname||NR||BL||in_txt8||NL||Counter-i||in_txt5a||Counter||NR||in_txt
  863.  
  864.             say ti_txt1||BL||ti2||NR||ti_txt2||ti_txt3||BL||avtime||NR||ti_txt4||NL||ti_txt5||BL||ho||':'||min||':'||sec||NR
  865.  
  866.             SA = 0
  867. END
  868. 'UNSHOW'
  869.  
  870. SaveSet = rtezrequest(txt_info1||NL||,                     /* Tell the user everything went fine */
  871.                      (Counter-nosave)||txt_info2||NL||,
  872.                      txt_info2a||NL||,
  873.                      txt_info2b,,
  874.                      txt_info3,,
  875.                      txt_info4,,
  876.                      'rtez_defaultresponse = 0',
  877.                      'rtez_flags = ezreqf_centertext',
  878.                      'rt_reqpos = reqpos_centerscr')
  879. SaveSet = VALUE(SaveSet)
  880.  
  881. IF SaveSet > 0 then do
  882.     IF OPEN('Prefs','ENV:SV-ProcessPics.prefs','w') THEN DO
  883.         WRITELN('Prefs',Dir)
  884.         WRITELN('Prefs',SaveDir)
  885.         WRITELN('Prefs',SO)
  886.         WRITELN('Prefs',SVObject)
  887.         WRITELN('Prefs',txt)
  888.         WRITELN('Prefs',ext)
  889.         WRITELN('Prefs',TO24BIT)
  890.         WRITELN('Prefs',TO8BIT)
  891.         WRITELN('Prefs',TO8BITSAVE)
  892.         WRITELN('Prefs',TOGRAY)
  893.         WRITELN('Prefs',SVO)
  894.         WRITELN('Prefs',SVOperator)
  895.         WRITELN('Prefs',SAOP)
  896.         WRITELN('Prefs',SVDR)
  897.         WRITELN('Prefs',ScreenMode)
  898.         WRITELN('Prefs',win)
  899.         CLOSE('Prefs')
  900.         IF SaveSet = 1 then address command copy 'ENV:SV-ProcessPics.prefs TO ENVARC:'
  901.     END
  902. END
  903.  
  904. IF SaveSet = 3 then do
  905.     txt_same4 = txt_same4b
  906.     drop files
  907.     call Main
  908. END
  909.  
  910. say BL||WS||HG3||tx||NR
  911.  
  912. call Ausgang
  913.  
  914. ERROR:            /* ERROR Procedure */
  915. failure:
  916. ioerr:
  917. syntax:
  918.  
  919. call rtezrequest(txt_error1 ||NL||,
  920.                  txt_error2||RC||' '||ErrorText(RC)||NL||,
  921.                  'in Line' sigl '--> 'SOURCELINE(sigl)' <--',,
  922.                  txt_error4,,
  923.                  txt_error3,,
  924.                  'rtez_flags = ezreqf_centertext',
  925.                  'rt_reqpos = reqpos_centerscr')
  926. call Ausgang
  927.  
  928. break_c:
  929. halt:
  930.  
  931. call rtezrequest(txt_chancel||NL||,
  932.                  txt_nopick,,
  933.                  txt_ok,,
  934.                  txt_nopick5,,
  935.                  'rtez_flags = ezreqf_centertext',
  936.                  'rt_reqpos = reqpos_centerscr')
  937. call Ausgang
  938.  
  939. Ausgang:
  940.  
  941. 'UNSHOW'
  942. IF EXISTS('t:SVStatus') THEN address command 'c:delete t:SVStatus QUIET'
  943. EXIT
  944.  
  945. END
  946.  
  947. text:
  948. /*
  949.  
  950.                            /\                 Ulrich Falke
  951.                   __       \/ _               Jakobistr. 2
  952.                __/// /||\/||¯/_ /|            D-59494 Soest
  953.                \XX/ /¯||  || \//¯|                                                                                                             */
  954.  
  955. tx='AMIGA definately BACK FOR THE FUTURE ---  UFalke@t-online.de'                                                                              /*
  956.  
  957. A3000/060-50MHz+PPC403e-200MHz/70MB RAM/ca.7GB HD's/Toshiba XM3701S/CVisionPPC-CGX V3/VLab/MFCIII/33.6kModem/Mitsubishi 16Zoll Monitor
  958.       CyberStormPPC                     IBM 4.3GB UW / Quantum 2.1GB S / Conner 540MB S / 2xSyQuest 270MB S / DD+HD Floppy
  959. AmigaOS 3.1 / DOpus 5.661 Magellan / PC-Task 4.4 with Win3.1 / Cinema4D / Refections 4.2 / Aminet-CD 1-26 / ...
  960. */
  961.